API تغییر برجسب درایو
برترین سورس های ویژال بیسیک 6
آموزشی و همه چی
25 خرداد 1389برچسب:, :: 12:4 قبل از ظهر :: نويسنده : حسام بخشعلی زاده

API تغییر برجسب درایو

این ای پی ای نام برچسب داریو شما را تغییر می دهد

برای این منظور دستور زیر را در یک ماژول بنویسد

Public Declare Function SetVolumeLabelA  Lib "kernel32.dll" (ByVal lpRootName  As String,
ByVal lpVolumeName As String) As Long

 : lpRootName مسیر پوشه:مثل درایو :\C

VolumeNameنام برچسب "ویژالبیسیک"

بعد دستور زیر را در یک دکمه یا فرم لود بنویسید

Dim A As Long
     Private Sub Commad1_Click()
     A = SetVolumeLabelA("C:\", "VisualBasic")
End Sub

موفق باشید

منتظر API بعدی باشید



نظرات شما عزیزان:

نام :
آدرس ایمیل:
وب سایت/بلاگ :
متن پیام:
:) :( ;) :D
;)) :X :? :P
:* =(( :O };-
:B /:) =DD :S
-) :-(( :-| :-))
نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه:





موضوعات
پيوندها


ورود اعضا:

<-PollName->

<-PollItems->

خبرنامه وب سایت:





آمار وب سایت:
 

بازدید امروز : 142
بازدید دیروز : 41
بازدید هفته : 183
بازدید ماه : 219
بازدید کل : 224613
تعداد مطالب : 86
تعداد نظرات : 43
تعداد آنلاین : 1